COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE UUO
C00003 ENDMK
C⊗;
TITLE UUO
	A←←1
	B←←2
	C←←3
	D←←4

	OPDEF OP1[1B8]
	OPDEF OP2[2B8]
	OPDEF OP3[3B8]
	OPDEF OP4[4B8]

SA:	MOVE [JSR XUUO]↔MOVEM 41
	OP1 A,A1
	OP2 B,B1
	OP3 C,C1
	OP4 D,D1
	EXIT
	
XUUO:	0
	MOVE 40↔MOVEM TMP40#
	MOVE 41↔MOVEM TMP41#
	JRST @XUUO

INTEGER A1,B1,C1,D1
END SA